(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     41542,        813]
NotebookOptionsPosition[     40617,        779]
NotebookOutlinePosition[     40976,        795]
CellTagsIndexPosition[     40933,        792]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{"w", "=", "5"}], "\[IndentingNewLine]", 
 RowBox[{"b", "=", "10"}]}], "Input",
 CellChangeTimes->{{3.56784414752411*^9, 3.5678441576680107`*^9}, {
  3.567847118584593*^9, 3.5678471727365437`*^9}, {3.567928800824012*^9, 
  3.567928829252822*^9}, {3.567929735205126*^9, 3.5679297359545813`*^9}, {
  3.567931974731526*^9, 3.567931983578547*^9}}],

Cell[BoxData["5"], "Output",
 CellChangeTimes->{3.567929736838616*^9}],

Cell[BoxData["10"], "Output",
 CellChangeTimes->{3.567929736841784*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.5678473945888042`*^9, 3.5678475023833017`*^9}, 
   3.56784762903965*^9, {3.5678477020020247`*^9, 3.567847715072445*^9}, {
   3.567847771649535*^9, 3.5678477979204063`*^9}, {3.5678479092513247`*^9, 
   3.567847917346904*^9}, {3.5678482269651413`*^9, 3.567848229827858*^9}, {
   3.567856260963553*^9, 3.567856298873785*^9}, 3.567928326435897*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"ksn", "[", 
   RowBox[{"a_", ",", "m_"}], "]"}], ":=", 
  RowBox[{"m", " ", "m", "  ", 
   RowBox[{"JacobiSN", "[", 
    RowBox[{"a", ",", " ", "m"}], "]"}], 
   RowBox[{
    RowBox[{"JacobiCN", "[", 
     RowBox[{"a", ",", " ", "m"}], "]"}], "/", 
    RowBox[{"JacobiDN", "[", 
     RowBox[{"a", ",", " ", "m"}], "]"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"F1", "[", 
   RowBox[{"a_", ",", "m_"}], "]"}], ":=", 
  RowBox[{"Re", "[", 
   RowBox[{
    RowBox[{"2", " ", 
     RowBox[{
      RowBox[{"EllipticK", "[", " ", "m", "]"}], " ", "/", "Pi"}], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"ksn", "[", 
        RowBox[{
         RowBox[{"JacobiAmplitude", "[", 
          RowBox[{"a", ",", "m"}], "]"}], ",", "m"}], " ", "]"}], "-", 
       RowBox[{"JacobiZeta", "[", 
        RowBox[{"a", ",", "m"}], " ", "]"}]}], ")"}]}], "-", 
    RowBox[{"w", "/", "b"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"F2", "[", 
   RowBox[{"a_", ",", "m_"}], "]"}], ":=", 
  RowBox[{"Re", "[", 
   RowBox[{
    RowBox[{"a", "/", " ", 
     RowBox[{"EllipticK", "[", " ", "m", "]"}]}], "-", " ", 
    RowBox[{"2", " ", 
     RowBox[{
      RowBox[{"EllipticK", "[", " ", 
       RowBox[{"1", "-", "m"}], "]"}], "/", "Pi"}], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"ksn", "[", 
        RowBox[{"a", ",", "m"}], " ", "]"}], "-", 
       RowBox[{"JacobiZeta", "[", 
        RowBox[{"a", ",", "m"}], " ", "]"}]}], ")"}]}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"F3", "[", 
   RowBox[{"a_", ",", "m_"}], "]"}], ":=", 
  RowBox[{"Pi", " ", 
   RowBox[{
    RowBox[{"JacobiDN", "[", 
     RowBox[{"a", ",", "m"}], "]"}], "/", 
    RowBox[{"(", 
     RowBox[{"m", "  ", 
      RowBox[{"JacobiSN", "[", 
       RowBox[{"a", ",", "m"}], "]"}], " ", 
      RowBox[{"JacobiCN", "[", 
       RowBox[{"a", ",", "m"}], "]"}]}], ")"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"thickness", "[", 
   RowBox[{"a_", ",", "m_"}], "]"}], ":=", 
  RowBox[{"b", " ", 
   RowBox[{"Re", "[", 
    RowBox[{
     RowBox[{"a", "/", 
      RowBox[{"EllipticK", "[", "m", "]"}]}], "-", 
     RowBox[{"2", " ", 
      RowBox[{
       RowBox[{"EllipticK", "[", 
        RowBox[{"1", "-", "m"}], "]"}], "/", "Pi"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"ksn", "[", 
         RowBox[{"a", ",", "m"}], "]"}], "-", 
        RowBox[{"JacobiZeta", "[", 
         RowBox[{"a", ",", "m"}], "]"}]}], ")"}]}]}], 
    "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"F1", "[", 
    RowBox[{"1.3", ",", "x"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", ".9", ",", ".9999"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"F2", "[", 
    RowBox[{"0.1", ",", "x"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", ".1", ",", ".9999"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"F3", "[", 
    RowBox[{"5", ",", "x"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", ".2", ",", ".9999"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.567847176521921*^9, 3.56784717836976*^9}, {
   3.567847347753934*^9, 3.567847381563521*^9}, {3.567847508973414*^9, 
   3.56784758801678*^9}, {3.5678477195377398`*^9, 3.567847809857777*^9}, {
   3.5678478786200542`*^9, 3.5678478790357027`*^9}, {3.567847940852681*^9, 
   3.5678479507237663`*^9}, {3.5678482356051188`*^9, 3.567848239700748*^9}, {
   3.5678506951365433`*^9, 3.5678506996798677`*^9}, {3.567855484103529*^9, 
   3.567855582718099*^9}, {3.567855616675551*^9, 3.567855785200296*^9}, {
   3.567855822664445*^9, 3.56785605757104*^9}, {3.567856090729929*^9, 
   3.5678561376840363`*^9}, {3.567856174990226*^9, 3.5678561963082743`*^9}, {
   3.5678563075487423`*^9, 3.567856333590193*^9}, 3.567856398241485*^9, {
   3.567928328984283*^9, 3.567928331108759*^9}, {3.56792901157829*^9, 
   3.567929012187846*^9}, {3.567929747907118*^9, 3.5679297635623207`*^9}, {
   3.567929819131763*^9, 3.5679298951348867`*^9}, {3.567931117523587*^9, 
   3.567931146602262*^9}, {3.567931208055039*^9, 3.5679312193260508`*^9}, {
   3.5679314167691174`*^9, 3.567931465871376*^9}, 3.567931531508379*^9, {
   3.5679319897352057`*^9, 3.56793199035949*^9}, {3.567932029992474*^9, 
   3.5679320848817663`*^9}, {3.567932115413714*^9, 3.5679321385781384`*^9}, {
   3.568011816512072*^9, 3.568011855942214*^9}, {3.568011886137454*^9, 
   3.5680119318502207`*^9}, {3.568018359542178*^9, 3.5680183600102167`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV13k8VXsQAHCEVEgiS0KWoizxbIkmLSh52VJSQkqIFAlJKtmzhNDiWQoh
+549W5Z770FIkpCEew+yV3rTXz7fj/s5Z87MmZnf2W571eQiCxMT0y5mJqa/
f3uYv3a0t08BLaKn5ebHIrA1FN/I1TEFeZkbKwWGioARb2lkiG65uKmldLQI
1u7p7OxA8/Q67VqiF4GGVU0vhTIFB+CyoDdTMTypSPhCo01B7cX++HvSxWDl
9u98d/cUZJjZ7Ui7WgxfR0tFPg1MgechF3111hJ4rwmmeowp6HthwvdKrxRk
peKEQlanwGjw55qjN8ug+ECJ+i1uOvj5Kui5pZSDJC1Yu0mMDnuCpCb+G6+A
uVn5ru+KdBCP4lKOEK6E9KAAI3sdOugXPR2vsq+CR8Zp0tEmdMiomtS8mVcN
X14/DomzRSelH7g7WgO8t/f1zrvRISZ7dxrLk1pI+5xXKOdPB6ngPYrH1evA
7Qb926YYOrTwd9oJddbBdt/BNcYv6XCFmI4t9q6Hf4STci8X0yGSp7zrmeBb
2CG75VB/Ex147vhRLRvegomTqcJKL/6eY+T+XecG+HLA5tXsN7zfQP/avA2N
YBIsyXlkmQ6jZ04VvipthJ0XS1avrmOAfjqXnN/pJvhU+LtvTpgBWl3/ZWxY
2wztqpwbZOQY8GtG6mFsQTOIGky2/6PFAMGwbqYskxYw6fL1SDBkQEboboHd
TO/gO2M4t/ccA/paW+YWk99BuTa3ToMzA/i2e8ceOdAKjn/o5evvMMC1LTX1
5mQr3DFLrJeNYMCUstHDByFt4CGypjAliQHHCwJFvqi2w0sBxZ/v8hmwh8aT
Uz/QDhppu7ve1WE8Fd29wx4dkJ0+8EiyiwHi3/9Znd5KAX8tq+GTIwwoU5ws
iS+kQAxrerDaDwbI1fIyex+hQgC8ELzGSgLTR8WYmc9U+Mh1Xd2fj4SFByXb
36vSgPfEnPaMNAklVzQjn/jS4LWkXreaGgkVu36Ei9bQwG+3Tf0uXRI4rujf
sFqhgWqaYrznKRJMfjwtYVMlwEWiSakcvZKhWdeFTks827aMPr7B1C5ZjYAt
ccGr3qdJSIm4cH2fBgFLgSN2ty1I8NHkTHXcR8Abhzile5YkHCuT/12kQ4CO
/J/W0PMkLOWy5y0YEmBYRPmdaE8CrT1Xiv8iAUYsrH9G0U25rXndaDOjvUy7
L5NwuEA5OfoSAWenUllK0RknVLI3XibgipTXWqoDCWYPKKeYnAgIi5Hc9MeJ
hESZuMtvXQlodfeUOu9KAmvojEnbLQIo9a+lX6JdEnazefgQ0MkzsmMSzU6y
sIrfJqA/21D25jUS/Nn1Rq/5EvB9VEIh4joJLeu5BbnuEsBxskO9xh3zyZYd
IR5AgJ6qhIGYFwm2g9uiiiMIEEwqYbNDZ1B77hyJJGB8vUFtBnp47aa0bnTI
kJuqsjcJ1UeOxk5HYTyhjWJHbpGg3KIyKhqDzzt8ec7xNglqakcdzeIJkDb8
nZOL9q5yPNeLXiiNcphDO36y8LRIICDuYcXgbV8SRs/e2m75BOPX4HwXeYeE
uTo7SbNnBFhH5D4vuUuCa1jv3NYkApRWDp3+id7hRxmNRLNc7OM9cA/r06Y4
yZpMQKomc9A7dE9XnNoEeuyryfWB+1jPrrPpr1Ix31oLuiwBJOhW839dSSNA
Oz2EWQ9ttxD22jqdAG5escpQ9JlxEa9GdO43PSX+QBIYOy/zhWUQMPsoYatM
EP5+7KQ6VyYBXt+1pg1DSLCO1WIdzCYg/jEPVzi6gbs+W/41ASWHRmUp6M7v
oZd80LPPQy/8G4r1ntJfJ5CD8Zj09/wbRgJfku/EgVzM75/XP8LRdsIGv4LQ
Gdl3eaho98tD/DT0V3bZYycektA/6WdpmUeA1ZubVSfCMd75Ya5L+QT4XDbo
jwj/W0/DfWnop/xii1T0arffpa/ovqtNe4wiSPAd48u3LiDAWIr/hVEkxq9g
NHuskABXYrw2En0v6uL3e+hw38pPNHTF/sKucnRr3wUB4ygSZAbu+UgVEXD4
YUGI8SMSptdpLk2hbTUD0qPQU0ccbEWKCbj7zaKBQIecTS86hq7WYV41jiaB
Vy90wwv0AKNb+BG6fYc+FxW98jRDvRPNTteZWUKrL5y4ZhKDzzv/y+JoCQHm
qZLhj9AaXTUfr6LdjRYzO9GONfV7Y9F5mYmjJrFY/zBn/wH0rvP0U6aPsf5Z
yzLnSgnQ56xzj0b3L1y38UZfKo+J6kK7m2c5PEanbtZqM40jQWVmaLgVXV+7
cTwaPXT+idEIesh5hLUbbb0vNHAFLdISst8sHu93z+GYdBkBmjesLGPQObtX
OjXQFhLKnt1oRiaHqAHak8oWy5eA13s0KHsW/djnQ74ZWlSxfs4JXST7mhKD
1vdZ8PFGd/b4TXajKWJvagPR0/fNOPifYH7OH6+ORm9UkpE+iZYRGHFLRC/l
Pnn1BM1i8/VpBnpYgUthCG1SMaKdj25/fadA+ikJg1xhp8rQJXKzak5oxrnA
sSp0Upbdmzx0Q7HXeB06ZFcvLKA5RFgsG9Dur4427HtGAueDin2NaCuZSv27
aPYG9aC//9dPV+hoQi/4rNtfj1bekWzM+ZyEMP6KM9VokZebe4zRHmmUj3/v
zyYVcCYO7TnVVP03PkbK0uAAekFjG/MrdN92pwsSifh7W92kv89Xn/Tpmz26
qSg/4RE6W8zoymu0zJeWCf+/+Uysn55Fr2eQkTfQfttUb2j8h/HtfBBsh3Z8
lr58G1294QthjDbbKuz7Fr2039xeG73/SRjLuiScZx5KejvRMkJ/Av5Fm9iX
u2xE/9wyGvEBnTbRFtyP9R+NNecTS8Z5ath4swpN4XsXb4c2GddPSUSn8OYk
k2gZrsBkS3RYlPgO1RQSLiXcdlVHe/BEZ3qjT2t6uG5CH+P2LGRLxXkr/Hyx
Bt9flYcT6gZoPslOzxi0KOe5ykg0LX2LmD16dt3Bxq0vsB/iIyjs6IGgoqM2
aN010UQX9k/T2p2UNPSx6kP0RHQCG2ev0ksSFIx/2iii7/n7Wt5Ej6Y/LprD
/r2yZuZzJdpOjGNzGfoAc8+4XhoJ13MOjmmgx3/9t3IunQTxduUgCZwHnbd4
76SiB1NoH3txnlSu+K/5jv7VKCYeio5ccuB0zyBhCyPlyiTOH/W5f0RDXpFQ
OcaV9wjnl7hbWgoVPZapI6WOXj8ruJM/E5+nb8TpA867QfK3YhJaeVnqkgA6
YLJZpySLBJ5SywRPnKfV2V4yi2hBMfMoXvS88+6NGtkk7O8eC8rEeWw3HT5Q
jmaPO+XQnUXAwfmTN6teY38sB0dsxPntXbLWahXd8NxPKuEVAfk3yw9DDj5v
tfFzcbT4ighvHfrwB1Y5WZz/v1dHshtySRBOPGIujvtDpTY2mi0P49caSYl/
ifm7q+eti05UdSvmRvevydJrQVv5NYjM4f4p47g+3JaP8zTLxz8V95M7L5Ng
VyEJ3Re4hKJw32V35a9uLsJ94WjaP/KUgJGYC1/N0JxqB0VV0CYCzQU96Ezj
+q0duD8VRcIN+4vx/PJMy3HoMQET0iL3v5Tifjw5yBuE+1riW4eDRBnOf0Xz
6jzc7xYZd4wuoKtVdJ/3hBPQsmtk21c0+4PBz0IP8XykmFk2Xk7C2cNtA7eD
CbDZq8Eg32C9DstmlOD54ZLA0XDFSpyPwjK8xX7YT/MWClfRLQd1ruXdIeB6
/i0XBlpGynrhOZ5H/GVrGFNV2P/9lc6mXnh9IV3yew0Jexz3nJfA803monmE
bC0Jcl4SQnQXAnLe2ys6oEPkRayKnAkojQq+Oo4uculx0sDzUcu6DnKsDq+3
Fxr48Tw1sWw6PfKWhHgeg2BRS5wfvXaRkg0kJCncMM2xwP4ovrHnAnrwtLuM
5mns32txrsPooO5j1CMnCeCc6J8easR5HGTOI3cC89lvM/OpGeup1rK8+yDW
p+LqbG8bCbMP64VypXDfOYqtiLTj+yC/Gu0nQQCfMJXZFj3HfL7JQJyAQi+F
TVNoKb3dXNSteH8NuiITBc9TsfI7AnkJuFbq6CxDw/eroS0xe5UGB+yFbzij
yziJNzy/aMAj0OpTgC7KNDd1XqZBnodsmBaB+/yc1uONczSYVh3PNOok4XGJ
ZNf8OA1cii6Oe3bj/Bj+vKBM0GC/Hf90FfqSMIvwZgoNuPkaF1ne4z6mGvJP
tNIgx01q7UP0mOF6YZ8GGtCVR6STezAeD41huVIaXMm3vvCuD/PjcMsn9QkN
tGx4nLg/kOCXUeH15TENODfVXjdFt4d+EuSLpkGWq9i9T+igt94x5qE0mFAc
TJrpx/qUuxUa3KKBQ47loNAnvP4R8Z720zQISDqmfwY9weEY/dCMBi8e7S14
glarY6nUMaLBoIdAwNZBPJ/Hm4bd16OBGXTJb/uM/aHtGmeP3wMHaMdui3/B
+v5nVePHTQOr+r3frNEH8wc+W62jwa0iGeNkNM9ad4ocKw1K4tmlJYbx9+mb
5uV/UAE/F9olRzB+/TiKRjMVtszuFdn5FfMt1bBH7zIVVEZlAuzR06cH3Qos
qWDcIzCdjtbPNgib/ZcKYRXzb2XGMJ64ol66ChWY7+c77fpGQp7Cm9TSVQqI
3kh674j+pVLsnzdNAS37CMhCd3+IrfIYpoCHgfNmuXF8H9rmxy41UmBqs+wb
+e/YP1u56MVBFFjPLijtgs7WZEtY9qTAziX2iBy0j7QuG7MDBWwHRm0VJzA/
D/wCT+pToPdF0nqlSTy/BC3pTK6hQL2q4BkVOgnPzu/8rO/cAYVbqDo+aA2t
uIvJ5h3wYvGBbAOadaayNRg6ILD8x5Ipg4Rajh0zPzd2wHFtapwbid8PFlmz
i5ntsF804M4bdEumfr5tZDso/tGyXzNNwgHt9LZ9N9qBty5TLRo9VPVsWlK7
HXoPB7wvmMH5IKH0Y0djG7RIa1etoDXCFmVsXrZBBfvci4OzJIy7mjT3+LfB
sxYb9050n7XqkolOG9ge1948+wPrxTUUEJDbCqbycyt75zCexkCNx0GtcJg7
a/gumoPZ2ibcuhV20gQLNs3j9eyiTf5wtsKU6ZyR0gL2w3bJnXzm7+CTSpaG
F7o9Mfvac6l3QOG3Fa9DH9bd8MJ7pgXye6mk0SKe5+KUl98+aIGUsoDeePRZ
1jscP463QEyCds0QelSuWfTnphbwsMwKd13C/Xs1WWMhphnstWw9ytAZqVbd
D02a4fQ2ISumZXz/R6X26XI1w77PAfKR6Gd1zoViXk343avN34e2ltoqmivb
BKLJc7/EVjC/LiNTGj2NwHTBtj0X7d+dvSZueyPMHBIqWkSfZam2cKlpgGEp
2lP4ifez2Xph/6kG6GYLvB+Inppc63Js/C00jmk7UdFLW+79yrv2Fkqa50wE
fmH/1jYE2czWQ0ZGluZ5tF3fHw9uh3pICLaVSEdne7y1EOqugxBHofUkuu+H
a4iHUh34GNBm1H5jvuaNNt33rQVnucAPvmijAT2loKs1YMW1v64JzXSN59mf
vCowYsxlcK+ij+y4LV70BnSoWZHm6D0BnhvPXiwH5Txbz0R0fILu2D9pJSAV
JWQ9huY4r7tr16FC4L9O01P4g+eLeEqmWPFr+B+9F9U6
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0.9, 0.06},
  ImageSize->{598., Automatic},
  Method->{},
  PlotRange->{{0.9, 0.9999}, {0.05802248916670316, 0.2769024928366697}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.5678555188505507`*^9, 3.567855584702705*^9}, {
   3.567855716903902*^9, 3.567855786570177*^9}, {3.567855823947757*^9, 
   3.567855939587829*^9}, {3.5678560454982967`*^9, 3.56785605895543*^9}, 
   3.56785609463253*^9, 3.567856129689721*^9, {3.567856178643241*^9, 
   3.567856198054699*^9}, 3.567856266271771*^9, 3.567856338635521*^9, 
   3.5678563998431377`*^9, {3.5679282730652237`*^9, 3.567928281869238*^9}, 
   3.567928335348407*^9, 3.567928836605072*^9, 3.567929014805139*^9, 
   3.567929420859427*^9, 3.567929764974558*^9, {3.5679298295994596`*^9, 
   3.567929896620158*^9}, {3.567931121080895*^9, 3.567931149234522*^9}, 
   3.5679312211096163`*^9, {3.567931419953897*^9, 3.567931469838998*^9}, 
   3.5679315370704737`*^9, 3.567931992341405*^9, {3.567932051311944*^9, 
   3.5679320865283318`*^9}, {3.567932117122368*^9, 3.5679321399899263`*^9}, {
   3.5680118887966413`*^9, 3.5680119336049423`*^9}, 3.568018362837741*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1nk41N8XB3CUFonKXlIJ0SJpF72FlJAWX0vZRdYQpfSriCxRIorIUnZZ
PhVq7LNZGkxJoRJRljBoj/K7/phnntfzeebMufd87j1nlYPXEScBPj6+EfKZ
+S7zDxhITHyGnBG5x0OxFPY//m5TnP8MP6Xmhxy6RaFz1LuNXfkMgutudZYQ
TzmdpH/teQb5fToyl+Mo6JiaJhuvpWHjDrmPC25TaFJTPcRfToO9Y3qDSCKF
3sGeMpd35XjSbL66PIWCn6K16uXRcmztef1vcSqFOfbtGfF8FTg2edLJhVi5
vTmGrlABfyf7V2JpFE6xy91lPSvwvkdkt1M6hd/341dw/1bgyu8ih4kHFESt
DMK2r6hCAk9msjSHQnio2IVW9SosD/JMEMylIEC9P+WlXwWtqB7qKPE3wdNm
2Z5VaO58bzlK3Fl0V1Gqogp/WqevLM+nkDVrmPHDohp6V4TsHAsorFQtLYv1
qIaM80RrLnGiRWC+amA1wu8UsXnEUQXit5yzqxGTeEgloJCCj7mWw+vv1ajY
+Kg/vIhCyn/7+I4b1GDdr2seNygKb93W/1E+WgOR3m/dHGLpwMXffljVIPMn
7bXQIwoxeW/7Y71rwA7+qX+VOGTaq6XxTg2ar3vs9ntMwS03IUXjcw1Wid7J
0yihsPXvoObS4FpMnEsOcHtKQbaho2dPVC3m8q03vE0sEN8Q6hpfC+tXJlQt
MXd9Lvdpdi1CjZi7pZ6ReFYuJ8w5tYg1drOvJE4r/xwZJ0FH8rfs999pFELD
XqtVyNHxi89ZfFk5Bc+j7LbeNXSEcjw+gljjS+aKzRp0bDlXpRdO3LbU6fEL
Gzo2/z6sKF5BQSigt1Mkh46jq0c9pCspjO1tvbyNouPDAW+F7cRvFjMUbGh0
iJq1+/1HnJF7/1QBh47FDlXdN4nRYS9gNE6HX1VSv0AVBaXMw9m+f+gYmzPX
VY5Y2GePUdIsBjyz5UJ2EnfOW3V7SIKBX+lPwk4R++3oVonQYEBhWL6ulfjY
bG5zsS4D2l8TpIeJ93CrfduNGJDO/9/s2dUURFxSK9fYMsBvP5yvTpx7x+Yw
O5iB0+KzNCOJu368OzeriYGzIYFnVGooWJ0oVfjbxoDS4NEVu4jfvojm/uhi
oN5z2MWIuP2hjvLQGANfFOlvPYlfOuS84YozIffhsM5D4kPcoODG5Uzw66cN
04hbtI5vZCox4V1jtb2BmCMtEla2g4kt23wL+4jrmn23pVgxsTDRUlGqloK+
pvHHO05M5ARatckTM3OVbsScYsL41GklVWJ6SMenkEAmNhcoP9Ql1p54FHMp
golvgePdxsTVtlFa52KZ6LeVKzMnrtBAvHsGiXfv2z43Yo0c6T1OBUwsncMW
8CV+JjExbFPKhPx1Q9sLxKVjGXpH6pl45Ez/e414i82lMcMXTOw1eotY4sfP
zZP3djLx8OzP1YnExVlC33YMM5G0IvxlJrGqeF+q+ncmXlesvpdPXBBUabj+
HxMe7xYJUcTrebd/Ks5lYXDQQaaUOM/K+8GKRSyk62x4TiNWbjQwkZFhgbE1
eEU1cfb21ZNL5Fk4PfucJKN25n2ZyhJex0J9j1wxmzhjyesjc7awMD5xbbiB
WD6w6N+0JgsaJi3POcTpI+F5v/eyIMc3bdxCvPK4g9nXgyyY82/wfUGcUr9L
YMSchW/aHrtaiZdvkyj8bMeCXWpL1ivi5Aejlt2uLFzkuZa0ES9dXC/YeZqF
jB/GJ18TJ15Kp1ovkHw8blTMWHo4wLophIWAKa2SGd+2NJ1fd52FXzpeh2cs
UbehpOY2C9rcLTEz8eK2zLWnpbIgvybdb+b/ltzvFn6Sw4JhJXvyJXGMKO1p
AcWC2WSZ0ky+iy7eOpFNY6FTM+x7M/GNIY9F6QwWznP1XWbWK2yhX3GXQ9bz
c97lmf2IZK1wiWtjQW3gw86Z/RLa/FvsRhcLhxreJ9CJw9NeVof1s0ArFU+u
Ip4j8tA9aIwF1erbujP1uHrhqtSF3yw87zsTXUJ8xWyH16kFbFgfviU+U1+/
Xc861kqw4SntxckgPrlSQ69fjo3ORo50CrHR0C4ZO3U2bK67eEUTo6UiWFaT
ja6a1vNhxOpPtEbb97LxWGmZzGViqUtgHLZkI1wqQdJzJl/Hmg0ijmzM0v7j
50g8tW9PQqMHGz/bYlwsiT8u1vXUDWRDnPtMVI/4Yaa+1NZsNoIl/7MTn6nv
tbqg8WI2Crc/d5s7s59e+4cLaGyobVBa8Iecv7M7D9QqNbOxTKZnYRexdpOx
u/R3NizkWcvTidUfNbe9+seGVnBFx01ixTsm2jHz6iC6Tm99ILGQ/WEJIdk6
OPdZxFsTt30zrZ7UqUMeve+8GHF9R5vKU6M6TF3LH54m9w2tyizOz6wOt7Xy
fnwhTgu3cB1xrUOAzH0undhN1krsw8068IeUp7gTW/G/v5h0tw6c90FNpsQm
n60HzDPqoCSjEKdFvKXYtpJbVgfvlcaDC4n/6TqepHfV4czLEyW55D4cU+57
cWmgDv5/tTKjiXsXOmnumqjD07O3Npwhrn/jvPiJYD3kQgTmgfiWu1t55vp6
SDtJf24i97XyLR/RiIB6cj7ULdrJ/c9U/auQGlwPnuzxuTRi+8ZwjZKoemwt
cbFOIr7Ln+bUk1KPhBde/6yIhb2by3cy6qGb/lbiHeknY0brXIYWNOAj+3x2
A+lHUQOlF/kkGvBrgyQnk1glROeWpFwD3D5FJAQRO5RbVumoNaA6S11lB/Er
lXDxJNMGFCmsWZdO+tvTOZ9qDO81IMPLo8qB9EPT+96v7bMasJlrd3In8bjW
1Bf/ogZ855d8Jkq89oyYVEZtAw7OnzIrLyPnu3eP59SnBuiv2HtJhDiwJkWm
QLURwZWrwzJIP94fYHFapKYRlYPKvdGkf1tcj9Tvb2hEZNmQtTmxa1rV0prW
RvJ+afnJEV9jKzB8+huhPPnGN5/MA5wl42JtIs+xkb+ipqaY9If8iJIk6+fo
km1PbSfzheU72i/lyeeYFlX6XJlH6s8b4fALcnBBeu7Xc8QBAqvSO0U4mNoY
fG8zcbJymEGUPAd7zSKfZ5N5p8vv6F2eAQdW82KuR5J5yWHh8K7SBA525/GV
aWeReLuXX9bd1oR/+lJCDmTeWvJ157FRNOFmEN1xCXF5ttnWRIMmSL9zs6OT
+Ux48c0vo1ZNMN47pLOKuLBXwOJucBMmohULO8m8NxE+oDbObYJgyxUVzWSS
X+vjjynuzfhgPb2YRubFCJcD+n/SWjAkcjAk4xqFd60+nH+5LXBQ/f5Fj1gV
iUdmPW7BS8VAwU8RpH9KDNgIs1rQO8v1oAKxLOOqv9xgCwYOJu5IDSP99oad
abo0F5dYk2dDQyi4DyZdZdlxoSK87MPSSxRiU5YMLBznIl9Y09Xam4Ltz9Gg
Hyovob9vvCTkIFm/ovxF8YOtWCopXzZ/LQXf0Ij/fD1eYVLd+e4Lfgp/2z4I
rH3QBr43OX0mL4rB/BO1WJL1Groq2l/jU4shLKLy3XL6DfYsGt45fKIYR0x/
l3Rt7sDw+KD2PaVitHmtbE842gl//2p2NbcIHee3teRFvsXhWppFn3YRllo+
WDNR+A7WZQVDfo8K8U5p2jRm6D3Glo7J2IoW4t6aaFuflR9gom9qHOVcgKZ/
NCfGym54j2rHnah9iIU9inMCKrvB69z6P5k5D/Flg6b5c5Me1Md2eSeZ5MMg
blhS60MPKvpeJWfG56HfR7y2M+AjpCH5RpaZCwVa/zIx4V4UuBlusvydg/Tz
6vb+ub3ozpE0b5bIwb0jUhJTun24RqkZ3FfNxo7b2eeXvepDcEFbgMKhLIgd
Lqp39v6EhJAF+qfNM3H9rEO9kcBn2BnO/uvskoHQkqJtR2M+Y3J29+WH/g9Q
7e4XfXV9P3YLrGHauN/Hnai+hCOV/TA7c7fjtFs6ObecKMNjA+D0Dh3kGqXB
eY3tpg/DA1g0Jzt6/GwKknWj9G79bxDRyzYJ5h9JhtgbNR1f6SFohueOGU4k
QrktcGwkdwj9D+zuNxTcwaUD+yPi9n0h9TtD/702Hkc7cm8e//gFtYaGukuz
YsF+Wbq/8vQwyh5tMrDQvokA3V1fDoiOQFm42fDI5khw5Nx3+6aP4OyGRsfr
a0KRIraVr0JtFHlO/m/d5YJQfPnsQzXOKIzmmz4wXu4PezPH+drWPMzL5KY6
y7piy+ROep0tD95ZQlkWlS6Yl7bogokDD4Fy8vp6Ni4oHqwctjnJQ0Jfnuu8
tJPguyjNvejDg4WiW5/eamekPWi6XX6VB+0TZ7vilB3RNbZdYXshD3ZZx5fR
rI/hUbzI+6piHtJ6a6TXplgiVONTvP5jHtTOfXpzs8sCqiGxc82e8sA3UNus
a2uOi1IjQ3504hKfVwZ2ppDdfZ969Jr8ft55jVy6EcY+nnPT6OChO+PBny4d
QzDDTFbT3xIHRWQuYxjA48VU3ItuHlZ2vW2rYOij/IT5ubEhEo+WSfNha+PG
fNVN50ZIvmrX57lH74ZD4eyhaR5xUuF7ZuwuCP2ijot+J+t3cYxzvrcVXcnh
4nd+8lDT7hmzKEsdj/bYNsn9Ic99ti8UdN6I0M9bQ7OmSHy1ZJGbMSo4FikM
1WnyfLbG/id/V+P/SQuBQg==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0.2, 0},
  ImageSize->{598., Automatic},
  Method->{},
  PlotRange->{{0.1, 0.9999}, {0., 0.06936399558474016}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.5678555188505507`*^9, 3.567855584702705*^9}, {
   3.567855716903902*^9, 3.567855786570177*^9}, {3.567855823947757*^9, 
   3.567855939587829*^9}, {3.5678560454982967`*^9, 3.56785605895543*^9}, 
   3.56785609463253*^9, 3.567856129689721*^9, {3.567856178643241*^9, 
   3.567856198054699*^9}, 3.567856266271771*^9, 3.567856338635521*^9, 
   3.5678563998431377`*^9, {3.5679282730652237`*^9, 3.567928281869238*^9}, 
   3.567928335348407*^9, 3.567928836605072*^9, 3.567929014805139*^9, 
   3.567929420859427*^9, 3.567929764974558*^9, {3.5679298295994596`*^9, 
   3.567929896620158*^9}, {3.567931121080895*^9, 3.567931149234522*^9}, 
   3.5679312211096163`*^9, {3.567931419953897*^9, 3.567931469838998*^9}, 
   3.5679315370704737`*^9, 3.567931992341405*^9, {3.567932051311944*^9, 
   3.5679320865283318`*^9}, {3.567932117122368*^9, 3.5679321399899263`*^9}, {
   3.5680118887966413`*^9, 3.5680119336049423`*^9}, 3.568018363433791*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw12Xc81d//AHArK1QqVPdy7RmSEarXKzvKVlZWpYRIaJmJSmSkgUpG6iOh
gVIkJZWGvYW4861hJIX83t8/fn/dx/Pxvueec17nvM55vR9X1i/EcT8PFxfX
M24urv99mk7mvs6xbANmkqWX4cvduEv9lFJTTBssjpjltnnvwtTR6KmW023Q
tNVGMcpyF77OjavvS2oD2tkzc/Zau3CjSJL794tt0Fsq0X1y0QWXf0u/uDqv
DcIqBQpf5bvg+7Limb0v2qDm72JFyzdnBJ22N1xc7bAgIGDvkO+EGqOKsr58
7TD0aSCHL8UJpbJOnHop2A4dH2n+g5FOOPmLpn16RTso2v4W/LfDCYufhmTz
yreDN7Xz4sRfRxTbJhrEb9EO7wqi61z2OOKgndUKkZR2OPfvhwbb0AHfc10P
DEpvB8tJKf5SFQesevCj8UNWO5wp9S9NlnTA9JVXT6beaIeIdSf25fyyR7Nu
+qhYeTu4bddrmn9oj6VeCVUr2tqB98CGl9k69ngquM5DUqoDSpeGGoSdtUVb
SqjlXkoHSDP3YFagLdKaZTeW0zrAsdlddMjOFt+oJApbqnaA4l7+4m9Strh8
zOZppFEHXDkkNUYv3YnF7r0SXZ4d8P6Bb99C/w5ssZxuzcrvgJpfVJlPzjZY
MHO7dvh2B2x90q8ZucUGI27v/k+jpANWbh0X26pkg2t5n8W9ftgBsl+f22rM
WuP+unit6Vcd4HEzxjnqhjX+1V2W6sQgrcB99sm37aggp2Ylrt4Jy+/3qawv
tMJwB7RcpdUJ1eknZZ6kW2Fj3C4LiY2dEDt8bZVbjBX6D502W2vcCT+SKQED
blZ453o/ytl0gvia1+1jK6xQTTLVUCewE27pXgv4kmiJ2iI/1RzvdULHwMnO
9CgLjDPmV3Mu74RkZ5OCnCALbD1EUd31qBOGJgsPVXlaYNg7K2X3Z53ATgiP
kd9igY+S8uX9mjtBLMK8ouWfOepzO1HCiE4opNV98U40R+OZStFM9S5IcF38
feumGZpIU3M4Wl0wuSPAJCXNDK0sziiZ6pLP458LnI8zQ+crjjC9uQtC9w5f
qvIzwyD9H6G7bLvgIYw++qJshtcjVTrWHumCb67bumwqTXF+JiensKoLehve
BnD6TZBHhkd5vqYLNn5MkW//ZIKClgGPnF90wYhK57b3L01w1VWDD0vedsFv
7hMuo3dMUMOgY+FAbxeYSQ6eqQs3Qc9jor4a813QUPyAyb/CBJ//jlWu3NYN
9/atr9rltA3xlk3TK/NuWPLTwuGO1TZ8bSV5oG17N/yMiN3Ds3UbNmeXFf9w
6AYR43cZ3SrbsM94UFHNrxuSpxw58/8QZ2ONFPJOk+0Plt1Tvo+oK/iLdv5V
NzQN/RdetBzxntShtXvMe2BJbrdFwOgWXPXiks3u7T0gkrdPsKdtC8bsr41y
2NkDHX3Bfi4NW9D+4fIhc5ceiHmQl3MqfwvO2FQXau7vgRSdaeNwny1oEsu3
niuxB744VOYIjGzGXvpNKHzdA3Rep1yLcWMUeNS+j23aC0JOe0O/KxuhkqOt
vJFVL/yeTxz2X2OEFhNvR5J39ELEwLJN48JGeEarzkvDpReszyr5UL8bIlfp
XdcQ/16geKz8JllpiLNF0Tt+neuFj2IUYV9zQ+RcUdbl/kT+fvopy+HDm/DD
yVO8a1z74OYZ38FnX/UxIMe9U8azDw6UiOxr7tZH/hrDO0o+ffC2YtRz9IM+
wp/f1roH+8Bj8fZpjWp9fHgsPNPueB8En2GUy6XoY3Z4sGzStT4QTx/Dqwb6
6H/YG6Z6+qAus5txMEsPF31NT31064cDfKfpS/fpouPJo31qXv1wQY8lusld
F4syCw3P+fXD782FM4H2umj1infWJLAf5AZ12ZzNupip8Dr8SVQ/fLgxFGEm
oYtKTLPDhXn94Mg3f8D7/UbcGWThe4LeD0sreS9ybdqIuZHbLRWPDEDuJx/R
YGUd7EjpNjgcMQD9gikxkTI6KFK4X6X6BPl8YaIhUVIHoz7HC20/PQCGzqnl
lQI66KlS0xx0aQD69tnFubM2oHSfmv3jygEojn+z+1HJBry1RcTN9O8AWPxw
Y0Rv3IBFfJ8P+SYMAsWHOhfgrI3rHoYfkEv4AvtupD93erce51NcnyRdGwK5
iG8uMfLqeNtUc6J65zBMl4v6XRdQxfjddtr/eoeBK/AgcUZcGVeqaOdW7R2B
76xKQ06wIu4RzA/bMDYCZRrxPG/WKaDHovZ0dMhXWPAqS9MYlsPl/A5fUya+
gmGEh1D8qCxGvdOeFz0yCqw1Eu6tYrI49hotDY6OAl+BQU/0UlncWW+f6RMx
Cl7xrUUagrIoXR2q8ujEKAQEzihmcMtifVGFs+vpUVhZu1AeMU1Dvjjt+wWX
RuGafbxSaR8NU/S1vQyqRmHjdu/pt3dpeL1Qq95nbhQEDP4dvmZDQ7OhiVX7
F0bBye3pW+7tNCTWPg4IWBwFGfGpuSALGhplbloZxjsGR5J/jVtto2F33Db/
hKVjsEWeICQMaCju5SRSvG4M/mRxfgnL0/Cc1DFXwngMRiQV7G7NymB4at3P
iKgx2CTwQyfsoAxGmqum3I4ZA4PqlGOf98rg8YVLyp1xY1DnK9ev7S2D0cEB
XrqJYyB+wH9+0UUGk3au+jCZSrb3U876bCqDV0UP3QnJG4Mik/akjTQZrEld
7RXQMAbTWZv3Cw9I43PzuD/XXo+R8bd25XRLY90CJ+vtmzHg4bVw/dQuja+C
65uVm8eAmrE/uqBZGj/sDDRktI/BWoPdDqeeSeOg6MtVe+ljEMrOaPmeK41c
F4OaPQXpECLwfEO/tzT+MkvSOi1MB+4PskI7PaWRM5d36Y4IHa6J9bxocJXG
joB2j8nldFiX2vX+qYM03jU3Gj+7hg7uaUtcukyl0X5BQPSRGh3Ck49seKci
jflBhbZCO+mgNKJjceUXFa/I1z7UtKPDl1X5AmcmqZjS1yXh7EAH3TDJkogf
VIy0Eh666UKH/xT/Ze5jU9Fa4UiIrhcdXAaPzIUOUnGyf2u6dwgdNkyX7Dd7
Q0UTm77Wygw63CjIVOjJIdubFEPVJTpoeb4XDLlGxRLDsPtVl+lQPpy8W+gK
FcVVhM9XZ9PhZlO0vlUGFUf4jPBpPh1WXEoV+HGWinF12WXPH9DBac/YwZEI
Kr7Y4HbhVSsdShKvGOxxJvtXUfzzqp0ORDMR5edIRSXahP/rTjrI1/2BQHsq
XhQ7b9LYSwdXle0mZ3dQ0Yt48ufNCB3yT5/byTaj4r8iqYPvJ+iQY1qit0uf
ipulesxaVzDg1m3bzN51VGy+sOPP/EoGcE2HqWutpaL7Yv19FQkGxFx04Tkv
RcVjjP8k4tYywGRm9vD21VR8+PgUS1OeAW1nJYMWxKio4iCTkqLLAJ/cGIuN
vFSsfn0Jn+gzoOyJe/BHbipabBL8NbqJAQ9ZQZxALirulZnYY7yFAR+n2d8q
Fyh481uDFsecQebDNuuYWQquTPZvt9zNANUwX+bIdwoWLPSdPerGgITgBLOG
bxTUPmK3Oc+D/P7DT6vujFPQ1nXT7RlvBkyaN0rEcCh4Tkn42O2DDOBrTOrx
ZVBQMidGvfUQA4b5FAX86RQsFp0amg9iAMXd4OnhMQq+mu63cj7CgOIrWytS
v1LwX8P9tbwnGaBZfVeJZ4iCqfpynzWjGBC17PJ9tS8UpJRcSXCPIcdjeOHd
7kEKGmbEjj84TcbnXeO7F/0UDPd2qPO5wIDvZQsaTT0U5G1vDEtJZUBa3vUb
q0hnWhgpP0ljQOdGgyr/bgqWr5dPX5bFgN0nTNlSXRRy/0/71l0n/dzoRmU7
BZ+Ur6M13mTAv/zpzxtIJ+41+dJ8iwHCXn/kHrZRyPoxzb23iAF2RUk6L1op
+D2mSmq4mAH1fkFTNqSf6Qx2Me4yYPbw7sGBFgruylFzmi5lQJaLut5S0gq2
Divmyhjwfv7KnbufKTjBffwz9wMGjOWI7rAmnRLQaLOsklxPhV26OZ8o6E4d
F5KoZkB1cGuUFWmVVvG3lKcMcD1ewjX3kYznJh8ztVoGZD/79yqIdPp4Es+G
FwyQGLUW1CDtdet+vcFLBoTWXMn48YGCGs4dMVtfMaDbdbdfNem/AnObzRsZ
ED3BH51A+u0z2TmbJgZM9SuMOZG+HGL11PEdAzbd0MtRIe0nH3LMrZkBWj8b
8rlJa3df1vP5yICMTx4LX5rJ9Ux+PuX/mQG1J7LK60k3bx19ENzKAEYC/7Ni
0tcmhULD28n932svl0Hav1hb81Qn2V+TJCuWtK777vH4bgbQly5ZdpQ0t1hM
ybleBpzqbMo+RPrTy6KDaf0McO9YdcGf9PWIZqUrgwy4jMX0//mQ6uTY9SEG
bB8zLg0kbTAoVVg4wgA3xdyRcNJ8GeBbMsoAsWVp506TbjPzl3lAZ8BWT1Zh
FulbsymD1UwGDMRF698jfbj0UW4dm1zvx2qmb0hv9ulzayQYED7X+oFOWmgV
t9SHb2Q+6Hh0CZHx6GpS7mr7wQCvNY/9dEgXnbLN6p0g5+PWEu5NOkwrwnF4
igGFV/5blkEaR3OXM38xwOoo6DeRFrva8OnbbwYQeVcJbnL9+q3ZKdN/yPUf
rdXZRjryob4Qzz8GCCY0nP5I2sx/T5MgFxNCTbsz1pL7Y8XaM4nLeJiweU4J
gkiXxrdyU/mZ4KKpGk8l99dJvdkX8oJM2J9oRokmbcmWjlETZkJOQZDfCOmv
9kF/DcSYoDozN19N7tcKvktPti5nQvrk4m41cn9HP3kaaS7OBGs368B80lI0
gSlHCSbILNd7e4PMD7sf+USwNBMk1UKffe6g4PKCY2GHaEzYc7dFfX8nBVuc
d/7xl2PCnRVsWCRtXzPL76NEjvdAs882Mj8dE+3kHDWZMJGfSl/opaD4JsX/
bLWZEHituv1JHwXbOX+1bHSYEPvePf44mf/O9sVbzPSZkCESospPng+71i24
6m9lwsFCgZUewxSU+NQ2pINMaJjj3bt5hELe/3f9tUyYcIY2kyZHnj+uDKdw
FQsmNAXypi+Mkvn2oCRtrS0Tqp64Xv7OpOAeS9c3//YwIUr3gU79TwpK/12/
c86bCZr/KWlMTFDwSylvx29fJnDFqZkqT5H5Jl4+8nM/Ey4qresv+EVBn8El
C1+DmeDtprK+5y8F9x19tLEpmgmOgfHWwE9FBaXzNa9imRDyZHDjawEq0nu8
ttXHk+Mtv59gK0RF/63Cdk8TmfA4TPrQUREqHhTyPXQvlQks38yBf+JUDMwT
y0+7wYSpYI/3NFkqJn1KOVydxwQLrhkfZXkqeZ4Lbx7KZ4JN15vHuopU7PEQ
6NYsZgLjhUrFXlUqmktxiX4qY8LSMsG6lTpUlMmYOC5Sz4QSUaGSBvI+M6oP
sdBtYIKuRlDsJksq7vrxbaXnayZQxNLPV24n7/ednLJ7b5lwf9zIs9GWin+E
RsesW5mgYtsxtNmNiu2nO+zPf2XC+Fx7fWYIFb8/cJR+MMYErwSJ5tgwKgqP
tBA9DCZcetiSGU7exwgfk1QIJtT8OxobcYqK9+canzdNMSHtjVd7J3l/nw2v
VuFfwgIlrO2VKqCisX8OV4IyC3z2iWf8HCDrj8733YmqLHA0F/MoGqbiT7O5
snPqLPjG58jvM0bFInnPPRe1WFD5SFLlB0FFkRFqTbYBC1TvCzwInqPioEf+
0QpLFrz/azk6vU4aNzW3Wj/azoL8kKQUdZo0ZhrxyFXZsCCS/3LdIQVptFiz
t+WZHQtyXmlweNZLY1mXwvqm3SzovTyVl7tVGmMd7jIGD7BAQYPx5fheaeyr
76kdDiAtVpW+5aA06moLXR4NZMGm5TIXlgZLI0vskCk7hJzPDb/UV5FkvfVB
/db0MRZce3PJ4HayNMpalrstPccC1lM1PuPHZD24uerDprssWJPqTpFYRtaj
Kmkc/xIW+KbXZOavlkGNVQcFL5eyoNNbVNaIIoNXiDVmExUsoDOVBjNVZfBQ
TvSz/56ywHOqyYxuJoPis2Yla5tZ4HrggoxcjAw2jVLfWn1kAfcNVuv5RBny
/WWGHvmZBdHL4ldzpcogo/iubHs7i8x/z2qp62Q96yKSfWGAHF96mvlCjQz6
Pmo/O/+NBey8uIh7czIokVd6W+0nC3Q+vwrh46Hh++TEV66TLMhLfmhjzE9D
XT+DxcczLHBYoVn5UoyGgityI4MXWaB2dYB7I42GFYf99n9ZzoYkGY/SSjMa
LqpOmNRvZINbo45/VRYNJ12iDr3TY8OMsYpaRTYNGfECmW0GbCgpvcz16CYN
P/VSR8aM2RAQ663eQb5P3DxvHStkxgbJkvVHkmppuJld+MzRmQ3Kyd1qz1g0
1F6tNeqxiw2Wq1tf2X6nocK2GuH9rmx4cHTq1vgUDZdmt7gd82QDS7fxlOUi
DfusFn7n7mPDiqPJolESsnj87i5dejgbUmdvmk5byGJQx4jH90g2yO/tiNLf
KYs+XMEJv4+zwaug78AZJ1m0dE1oE4pmg32U4xNTH1mUEKwI1Uxkw5XHWRJO
J2Wx8oDQ/WOX2aAX5XL4Q4UsTio9VxSuYsMeSRnmrLIc9jjMrBZ6wgYBgppW
ryWHL6K0+QVr2OCuyytz1UAOU9qKGEvq2GBrZppwxFIOlWNS73C/YcNHR337
oQNy6Nnppfqnkw0ne5BWf08OTbmy18x2s+GzX1Ld2cdyqKbeLvS7lw0xxxLK
fWrl8HecJWd6kA2B6hX6lp/lMFND+95POhuOVo5WElNy2JTAvZ71iw1lUR5e
z1Aey8qMqczfbPDwOvHwvrU8ZvVGiDL+sOERh+ny2Fke/bQ430YX2CCq+c53
8aA8zve1lQ0t4UBmn2hOZqY86ugUaXev5oD8O96cYbY8Xh+20H2jx4Hwwxpc
oyUK+OWsauBPAw6omGRzTT5RQBktkYK1Rhz4VTLwVa5JAQuiW5eFbOXAy8o9
/OOjCnh3rSchacmBog/RlioyivjY+UhBgCsHqp2sgx5dV8SZOafeS+4cWO7/
PErqviIaFOovr/PkwM2iRKs7tYpYMzEXLe7LgccfdT3MhhSx/mKS27MADuid
cOdPVVDC5re5y0VPceDUauMpRrUSioTGWBpEcyBjd6+dTrMS2kr6xvjGcqD5
qAP7wRclbNmvNF6ZwIEnPm859vzK2MXzoMkrhQOflX0rFFyV8evmNzEVN8jx
ntnXRudXQYWxu5V9eRxgQ+HtPqoK7r9wYZyvgAMNGXJS4noqyOq1d3cr5kC3
S6bizn0q+D2yX4+nnAPvC6Rw5RsV/Fvxc9ypngMFtBerf15VxZPXEte7NXBg
9DCr++UDVfwbu/aw12sOCD9AtaFmVZyzNftx8C0Zv+BLx7i51XB+/OpEdAsH
uGsrRYVC1HBRBWbuDHMg9siSHB8PdYxb3qF//ysHyq6OOqafVEeu2YPHHo5x
IGzAYZ18DummzNnnLA4olF7kOtGnjjz7GX9bf3LATPLr9bU+GsiXn7o4x0VA
v/6kIE/8ejxzTg65eQnoLDU75HhnPS4JrY7jX0LA2xEvY5VP65EfRrhXCBFg
faGu8zBVEwUGdfmUVhAQfCMkr6pBE8+9fmemvpKAbaVztXHfNFGw1CtRezUB
RbLHrzKltFDw1Dl+4zUEvNlyrfLaES0UXjMgaC9LQOK8mXXEam1M5jqy3UWe
gIoNw1PR67VRmLUk2V2RAP8zPfGj5tq4tFpr6X5VAlx/cOd8PKaNIi4Joic3
EGB6WuiEx7A2LstQEy/aRsCUR9Clc282IGf6QHaHKQFZHbUm61gb8I3rbdoS
CwKWyLxP2SGsg1E0mpa/NQHOpz8evW6vg6zy1TtUnAh46ucTG0HXwVcrndpd
Xch4fJj8FSuyEW8eS3c/v5uAqqK+2/a6G9EFlgZwPAi48Ivl4Jm0ERs+cSWV
7iPAhDo2/llXF2/obBUd9Ccgzfv+p1o/XTx+5VSWaAAB5Ybt7DsZuqjpNVNw
OJgA3/A/4RmTupj7jXihHUnAQ9cxyqOXehjpoGrpe5yA22tujJ2Y1UPHSv9P
GScJ6A3qDz2nrY+C0SMDkzEErB/utL5XpI/hIt1/Hp8lYHU2f2jwTQO0C10V
Tz9PQND30/Edwwao1uEgKJFCwFf9sF0/FTbhcO4HiWPpBPRl/CtOfrgJd6o3
bDTMJuCD6zXJPXRDVElbrAnIJeAl5aTZcQMj5JvabJJzgwBPBZ0g4oIR1tRU
28/lExD3VSvRZLMxKlnfD64tISDvcuvV8drNyF3Gmf5WSs5/J/vub8UtOLBC
JUq6nAAZvduJ7hlb8FJvQXLsIwJ28TQyW8K24uEtwysqKgkQcsxWRvZWtM6n
Zg9XE5DvXSP/Yi8gV8C1O9ueE8AzB1vHdBD7P3RqhtUR8F1HNIAeiVilvbKq
oJ4AQbO0Jv9axKDZ1Ne8jQRgyo75U47bsPdswkjjRwIKe3hlL+eb4B1OyIbx
zwRoJesHRsybYMROz3jxNgLY4kEx6h6muGKlnqx3FwF2Lb8S1ima4VCE7JHE
HgLU62Q30dPN8H6P6Mt7fWS8jZ6l3uY2x+03GT6zXwiYbpQcPj5ljpLc7RXS
IwSsex/Y7RZhgfS9L7jMRwkomxQu+7xggfGq125lMAnQyO0Xz1KwQruUMz+r
2QRI2TAjVr22QuqPUPxCkP0Zl5/JCNqOTx9vH1b7SYDtleip6n5rPCupr+0w
SUCGRf4V4yIbdDkpF3dsmoBwmchDx0/sQPlBsZYbMwTcFTEUKvPciRMwJ/N6
loDTZ40sLe1s8UUBM4Tzl4CbLYavRhztMHVJx4vlCwS8U1h68Z6uPao2l3rv
4R6HZUy7/M5AB/y9Prs8gXccqi4vCT+81hEb0xMX/1syDkef8a7p73bES1NH
7FoExuFkzkXuVcVO6LvLK29GaBzmf5xRDDnrjFpPrX9QRMahJnOstirGBRfW
GYCp2Di82/J5xiJtFzbHyKcFLB8HGesNhnq1u3Hq+2nZUNL////c/wENghSS

     "]], LineBox[CompressedData["
1:eJwVVnk0ltsbrXRdDe/3fYhwI3OmSshUPBINMmSIonuLjN0MZSqJIkSGhJRc
Q1JJGhBJ6UmGJBSKWzS4kvS+70ESEr/v98dZZz1rr7XPPvt5zl5Hzs3fzmPe
nDlzWvnr/zur6tDmF0PDyuGp/PKaTZh88ujGsDgauMk2BQXLNuHFFVL/HI2n
ITpwuikq3hyvPbs3Hn6ahkYBY17kLzOs5Y0XRabQ4Jl9Tbd7YiO2laULnEil
QeGtxOSOyI3Y46j9Z1QaDaXBU/Kaizbi9+wAXkwmDeYro6ty1pjiPBPu/tgL
NOzdLX82s3kDcv4reRJ3kYaj/nl65T4bUEX1a0hCLg1aO4xeut4xwbXP41+c
zqfhM1M4G+Vsgqb+KmpJBTTYBk4nfRY0wd13PXpTrtIwqN2glPjSGH12ztdL
LaIhP1lm99t1xhjy89KZs8U0bNHMbPQsNsIzGz5szLhFQ8xwWIfChfX4pMX5
elYlDRG/+gLxmiG+CJgUyK6iwe1k9kZHXUPsET3/5z/VNBwQwlsBjQY4vusV
L+8RDQ+iStamfdNHtQGb0MJGGlY9+riv2F8P9eLZF1eaaKhyMkzzF9NDM40k
tWvNNKiLTnWVPNTFvw49673eRsOR6R+vtcV0MXXGzOx2Fw0qnxtUvvbq4IR0
Yn/PvzSc+D5sMZSsg3uNOk4u6KGhQHHWSshUBzXDXevdPtCQa867Z3lTG1sn
j20S+0JD6q69Af9la6GuZP3Ahq80dI0IOD/crYU5+ovj/Bga3CN31SnLaKFv
aFZj4wgNiX65w/6Fa3Dx94otYVM0LD7QXRVcp4lBS2YGr0zTkBWYcH5viib2
aJvHd8zQcF1BauqIiyYWH+po0hBgwCImqlWeXY0Ww8Ti/SIGpL07fUqDV2Hc
VxUrM2kGTmWUWer1qCO7MIAJWM5AfFqytcEZdXRUq0z6R44Bgj8P3jRXR2Uf
89ZxJQbu2dYENpWrYd2Aq03RKgYkQz68qbqkihqCReSVJgPKyhC/1VUV05WG
U+ZpMyAq2ftJQE4V97lHvHDRY0DTzHbNmwIVnNeXZcsxYeAqM/ivecUK3D+3
b8TQlIGfXtDkemwFtsuqnvUyY2Dav+/OQfMVmL+nsh23MLDUO2+FY7cymvR2
2AfaMjCmJdd0XkgZj3Uvdux2Y6DFzLD5SbIiKuoLzvngzoDVPguPAg9FfJY5
W/TZk4HQLyYx4kaKKOE0+mt8PwNPbhTeKWYUsPRVV6FYIAMf+i77me1QwIH2
S9/tohmY3XBYeGadPCZqZec6xzCw+JpOYa+UPGqfzdjqFsfAja+TQ6pTcnjc
9tQ/B08zwBgeeTnnvhxKvfA1P5PGwHKZlJAgYzm0btHPaClgwImnqje5UxbH
NLTgVSEDo78J+LYbyeLFRPUvPVcZePDvLbkZeVkc3CZjRBczkEWFeaX0LMeo
ZwKfFpYzcERI7dwsbzlWNrbqbKljoOtC/dOJdGn8a8XTdzYNDEwKFw53eUnj
/LjHp5yeMrDJZPyY3jpptNtU3uP5nIGJpE16Af8tQ7ruwsmYTgbWPxU0zzBY
hrK17p21/Qy87vxdWOenFN6XpTbjAAPOvsvVfn8thfaRd6seDjIwYux1YP0d
KYxdL5h7j2YgIuy1wVNvKfxacdXn5hgD9ZH04IYeSawoHpq5MJ+FtsO+Vyo7
JHD7wrSDmYIs/BLfYyFdLoFfvNf1pwuxkFnv19meLoHLlBObUhaz8OM1556q
kwRG5a1Mj1nCgjGhDx94vxStMgJUDyqyIHnd5b/jv8Rx4JtEtp8yCzZJn2oP
94njcbvHnAMqLFjA0NPSRnEs5YqMeWqwIGTB2TF0VhwlEspqduuwYC27NMhe
Qxz7I8btt5ixMDD7Pj10vxiGeYdHLHdnwaMg5e477hL029iit8WTjydfdlgz
JYpuMjIjAd4sRL6YHaruF8VtnY/21R5gobOt6EnIfVFcZiKw1SOYhd2OhpJB
3qJYszRBtDiWBabxbv6yVhEsHX3zvOMUC2XnPNpvV4vglRb12OkEFmzHIpcH
F4lgSnTLhFUKC/dLuPsSY0RwL+G9G85kIa9o6dYhEMG5jZnXdItYGKvujeA+
FMbx/EHXPcUshKwcMAgtEcahcIM/TpWwoJ4bbLAgRxjbtd4m/XuHhdA1dS3X
I4XxUo5MYPh9Frpmt0j3mAmjWUihUW0zCycikjdWv+ahvu34+FALX2/GGPdK
Ew81NDbfFn3BQo1lwHTFAx6K9Q3Ke3Ty/U9tdrco4OGAlYaQUC8LYaXrl2od
4uEppbJ2K5aFRbVeJ9+L87DapCLDdpiFLT71Za2Leci6VO3cMcpCxzvrgZ55
PHQ4++jd7nEWFp9z+e3GOy7KzjYP/T3DwscPj+0OpXHRXqqtxH8OgaeiNaPr
T3Axdm17QOA8Ag0nLLLN/LlI/909HiZIIO/KiqcLLblY1d0/L4FDwOSj776D
Qnz82+f6JB4BB/NCKYUJDspyv55KFSEwX86tRHiQg7HmI5wL4gS8Yx+mFz7l
oF3pL6lrMgR4TiM51xM5OHRaXLthFQGFzi+eFrIclL4qOd6kSWCi/saDblEO
bq9dVtWiRWBI/Gv7ld85WDEhD690CUhap9YJDFMY7bF6W78xgU3ZZPr5Ewor
jmtxBk0IyF/O9/GoonDo4tqXX00J3Hps5bvhFoXb29c5fdtEwEA8/kXDRQqX
wZZ982wIbFMzTf3jMIU2ztuUBW0JJDp9mu33pzAq2PrLAnsCK0en3Se8KBws
dvAXdiJwMf+U2dxdFP7R6KQltotAfonC3ElbCq37nL9LuBBQmRNuCNsoLJdw
PSq7h8BbSijwgTGFn7XdjRVdCcSUG1mP61MoZeM1V2Ufgeb8vr0ntSm02r+/
Tt2DwI3Wvfbeqyg8HuMbt9qLgLmlzWCBKoVleQEW2j4ELM7pzugrUThQHUjp
/U1A2uFoqqocn68r5IWhL4FFroE1odJ8vtEjacb+BEY9i54oSVF4OUfDLuIg
Af+EwCWfxCmctnjPqwkkMBaf6CK/hEKHH6ltv4IJbHDL8vooTOGNArNko8P8
fq9VslHmUTh/+w/LY2EEDnd0hnznUOgyXbToYTgB1XPO5+35dem13c+mIwjU
n5V+Zs6vF+7gxq8/QSA2rDbuJb92m1u7OTyawEabG9XTXAqrSoIEH8QQcMnK
bGrhn8dzXlH/M44AJR+atY2vx1vwTfS6BALjex4VHVtKIZYmmh5N5Ov12bHk
wB8ULt0Dc6uTCfzV+VfRclkK/RaNPpo6Q8Ayx/BXPt+fhsrLEYZpBEjnj4hf
6hTKuDsZhWUQ6MGSM0Z8v4N5C6erMgksrFAv8FtH4fMHD+5PXiAg9yBxR44Z
hYo+/kcMsvn9U3W88NaawnAxef0jOQRc5b+81XWmsPNx5/i9PALG6nq6tZ4U
avjF3Z24RMC57G1BahB/PqUMg/QL+XwfJk2royl800BrHb5KQDE6IccpnUKt
wNyRyiICg6NKv0VdoTBhud3tH8UEsrRb2Z33Kexrnu+vd5NAUcProJk2Cg0P
V64MvU2g5eCz9+c/U5iquJ+uKCUQmKu63X4uB02OtfnoVhIQejvaO7KOg+dV
o1RCqggExUu7Wv7JQfJK5/Pdav57Im+MK05wcFPU58LvDwmUqjSFRBVxMGdV
lvtaJLD+wIHvvFccHH9jqRBcS8Cp32/Ny/lctIqb/VheRyB1rc4hcwMuXtYu
zRtrIJBrRb4JBnJx+r37Hp0mAmoJlzSbS7nokLhUJqiZnyeSgnf2T3KxWP9Z
T1kLgceZRhNjCjyc9yn84rc2AtFaTkm1Njx0Tl3trN3Ov99M7sf3x3lYatQn
EdhJ4JnyJ1mjezxcOJTeVfqagN3Pzqzff/DQ7dzmc6Pd/LwgLvE1xsJYZTrl
oPWWgM1EDbM9VRh55IbooV4CVdIBMVtHhNH74p72O+8JoLmXqbCbCOJmkdSR
jwTqxjynHQdFUGKszmZNP9/PpL9XViaIYkBeKOfgAIF3Ik/UuuyWYKOlWsvt
QQLF1mKFu23EUGay5/TwEN9fiTzRq5niGFKYYqHJ8PEbVWqH7CWw1dZ0QQAh
EBV39ubq51KoNDPWeGuEnxe3g3/zzpLB8OtXY8k3ft5M1ceWXZTHTkdn89Xj
BBboK0/vbOD/9wSo+f4T/HngqH94ddwQo289qr05RUC9o405f3mbyRuXQyfY
aQKdxys3OxQqmGgJKZmsmiWgLKxadjudZ/I/wtOb4g==
     "]], 
    LineBox[{{0.2138875122562189, -45.48988747361032}, {0.21388772383061674`, 
     95.01912648186736}}], 
    LineBox[{{0.8818350281007402, 95.01912648186736}, {
     0.8818402796131097, -45.48988747361032}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0.2, 0},
  ImageSize->{598., Automatic},
  Method->{},
  PlotRange->{{0.2, 0.9999}, {-45.48988747361032, 95.01912648186736}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.5678555188505507`*^9, 3.567855584702705*^9}, {
   3.567855716903902*^9, 3.567855786570177*^9}, {3.567855823947757*^9, 
   3.567855939587829*^9}, {3.5678560454982967`*^9, 3.56785605895543*^9}, 
   3.56785609463253*^9, 3.567856129689721*^9, {3.567856178643241*^9, 
   3.567856198054699*^9}, 3.567856266271771*^9, 3.567856338635521*^9, 
   3.5678563998431377`*^9, {3.5679282730652237`*^9, 3.567928281869238*^9}, 
   3.567928335348407*^9, 3.567928836605072*^9, 3.567929014805139*^9, 
   3.567929420859427*^9, 3.567929764974558*^9, {3.5679298295994596`*^9, 
   3.567929896620158*^9}, {3.567931121080895*^9, 3.567931149234522*^9}, 
   3.5679312211096163`*^9, {3.567931419953897*^9, 3.567931469838998*^9}, 
   3.5679315370704737`*^9, 3.567931992341405*^9, {3.567932051311944*^9, 
   3.5679320865283318`*^9}, {3.567932117122368*^9, 3.5679321399899263`*^9}, {
   3.5680118887966413`*^9, 3.5680119336049423`*^9}, 3.56801836521423*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"u", "=", 
  RowBox[{"95", "/", "100"}]}], "\[IndentingNewLine]", 
 RowBox[{"sol", "=", 
  RowBox[{"FindRoot", "[", 
   RowBox[{
    RowBox[{"F1", "[", 
     RowBox[{"u", ",", "x"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", ".95", ",", ".99999999"}], "}"}], ",", 
    RowBox[{"AccuracyGoal", "\[Rule]", "15"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"thickness", "[", 
  RowBox[{"u", ",", 
   RowBox[{"x", "/.", "sol"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"m", "=", 
  RowBox[{"Power", "[", 
   RowBox[{
    RowBox[{"Re", "[", 
     RowBox[{"JacobiCN", "[", 
      RowBox[{".97", ",", 
       RowBox[{"x", "/.", "sol"}]}], "]"}], "]"}], ",", "2"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Z", "=", 
  RowBox[{
   RowBox[{"376.7303", "/", "4"}], 
   RowBox[{
    RowBox[{"EllipticK", "[", "m", "]"}], "/", 
    RowBox[{"EllipticK", "[", 
     RowBox[{"1", "-", "m"}], "]"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{"F3", "[", 
  RowBox[{"u", ",", 
   RowBox[{"x", "/.", "sol"}]}], "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.5678475740260983`*^9, 3.5678475769088993`*^9}, {
   3.567848551165308*^9, 3.567848560268908*^9}, {3.567848601420784*^9, 
   3.567848704799304*^9}, {3.56785071791685*^9, 3.567850722139625*^9}, {
   3.5678563634345493`*^9, 3.5678563743644123`*^9}, {3.567928242873239*^9, 
   3.5679282564036007`*^9}, {3.567928396380308*^9, 3.5679284225745783`*^9}, {
   3.567928737084054*^9, 3.567928737193556*^9}, {3.567928952503957*^9, 
   3.5679290040524797`*^9}, {3.567929040205058*^9, 3.567929190500997*^9}, {
   3.567929227501162*^9, 3.567929294866748*^9}, {3.567929328469102*^9, 
   3.567929372486265*^9}, 3.567929500181341*^9, {3.567929541229938*^9, 
   3.567929550110461*^9}, {3.5679295834257936`*^9, 3.567929726822547*^9}, {
   3.5679297782215757`*^9, 3.567929813239455*^9}, {3.567929953841498*^9, 
   3.5679299539341097`*^9}, {3.567931006358721*^9, 3.567931024894374*^9}, {
   3.567931391506792*^9, 3.56793139157966*^9}}],

Cell[BoxData[
 FractionBox["19", "20"]], "Output",
 CellChangeTimes->{
  3.567928851715096*^9, 3.567928954708613*^9, 3.567928988746138*^9, 
   3.5679290667474613`*^9, {3.567929097510045*^9, 3.5679291913541737`*^9}, {
   3.567929236731145*^9, 3.567929242826033*^9}, 3.567929296321885*^9, {
   3.567929330256792*^9, 3.567929373025374*^9}, 3.567929427914699*^9, 
   3.567929501284124*^9, 3.567929551173888*^9, {3.567929589426252*^9, 
   3.5679296351656713`*^9}, {3.567929672161109*^9, 3.567929693903241*^9}, 
   3.567929728005934*^9, {3.567929774548482*^9, 3.567929813716469*^9}, 
   3.567929954763014*^9, 3.567931027298852*^9, 3.567931345184072*^9, 
   3.567931392522191*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"x", "\[Rule]", "0.9807107960213444`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.567928851715096*^9, 3.567928954708613*^9, 3.567928988746138*^9, 
   3.5679290667474613`*^9, {3.567929097510045*^9, 3.5679291913541737`*^9}, {
   3.567929236731145*^9, 3.567929242826033*^9}, 3.567929296321885*^9, {
   3.567929330256792*^9, 3.567929373025374*^9}, 3.567929427914699*^9, 
   3.567929501284124*^9, 3.567929551173888*^9, {3.567929589426252*^9, 
   3.5679296351656713`*^9}, {3.567929672161109*^9, 3.567929693903241*^9}, 
   3.567929728005934*^9, {3.567929774548482*^9, 3.567929813716469*^9}, 
   3.567929954763014*^9, 3.567931027298852*^9, 3.567931345184072*^9, 
   3.567931392554089*^9}],

Cell[BoxData["0.4768019491987058`"], "Output",
 CellChangeTimes->{
  3.567928851715096*^9, 3.567928954708613*^9, 3.567928988746138*^9, 
   3.5679290667474613`*^9, {3.567929097510045*^9, 3.5679291913541737`*^9}, {
   3.567929236731145*^9, 3.567929242826033*^9}, 3.567929296321885*^9, {
   3.567929330256792*^9, 3.567929373025374*^9}, 3.567929427914699*^9, 
   3.567929501284124*^9, 3.567929551173888*^9, {3.567929589426252*^9, 
   3.5679296351656713`*^9}, {3.567929672161109*^9, 3.567929693903241*^9}, 
   3.567929728005934*^9, {3.567929774548482*^9, 3.567929813716469*^9}, 
   3.567929954763014*^9, 3.567931027298852*^9, 3.567931345184072*^9, 
   3.567931392558735*^9}],

Cell[BoxData["0.43711326295059466`"], "Output",
 CellChangeTimes->{
  3.567928851715096*^9, 3.567928954708613*^9, 3.567928988746138*^9, 
   3.5679290667474613`*^9, {3.567929097510045*^9, 3.5679291913541737`*^9}, {
   3.567929236731145*^9, 3.567929242826033*^9}, 3.567929296321885*^9, {
   3.567929330256792*^9, 3.567929373025374*^9}, 3.567929427914699*^9, 
   3.567929501284124*^9, 3.567929551173888*^9, {3.567929589426252*^9, 
   3.5679296351656713`*^9}, {3.567929672161109*^9, 3.567929693903241*^9}, 
   3.567929728005934*^9, {3.567929774548482*^9, 3.567929813716469*^9}, 
   3.567929954763014*^9, 3.567931027298852*^9, 3.567931345184072*^9, 
   3.567931392561914*^9}],

Cell[BoxData["88.90053723748817`"], "Output",
 CellChangeTimes->{
  3.567928851715096*^9, 3.567928954708613*^9, 3.567928988746138*^9, 
   3.5679290667474613`*^9, {3.567929097510045*^9, 3.5679291913541737`*^9}, {
   3.567929236731145*^9, 3.567929242826033*^9}, 3.567929296321885*^9, {
   3.567929330256792*^9, 3.567929373025374*^9}, 3.567929427914699*^9, 
   3.567929501284124*^9, 3.567929551173888*^9, {3.567929589426252*^9, 
   3.5679296351656713`*^9}, {3.567929672161109*^9, 3.567929693903241*^9}, 
   3.567929728005934*^9, {3.567929774548482*^9, 3.567929813716469*^9}, 
   3.567929954763014*^9, 3.567931027298852*^9, 3.567931345184072*^9, 
   3.567931392565097*^9}],

Cell[BoxData[
 RowBox[{"4.45797993958579`", "\[VeryThinSpace]", "+", 
  RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]], "Output",
 CellChangeTimes->{
  3.567928851715096*^9, 3.567928954708613*^9, 3.567928988746138*^9, 
   3.5679290667474613`*^9, {3.567929097510045*^9, 3.5679291913541737`*^9}, {
   3.567929236731145*^9, 3.567929242826033*^9}, 3.567929296321885*^9, {
   3.567929330256792*^9, 3.567929373025374*^9}, 3.567929427914699*^9, 
   3.567929501284124*^9, 3.567929551173888*^9, {3.567929589426252*^9, 
   3.5679296351656713`*^9}, {3.567929672161109*^9, 3.567929693903241*^9}, 
   3.567929728005934*^9, {3.567929774548482*^9, 3.567929813716469*^9}, 
   3.567929954763014*^9, 3.567931027298852*^9, 3.567931345184072*^9, 
   3.567931392569449*^9}]
}, Open  ]]
},
WindowSize->{967, 1154},
WindowMargins->{{92, Automatic}, {20, Automatic}},
ShowSelection->True,
FrontEndVersion->"9.0 for Linux x86 (64-bit) (November 20, 2012)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 366, 6, 55, "Input"],
Cell[948, 30, 70, 1, 32, "Output"],
Cell[1021, 33, 71, 1, 32, "Output"]
}, Open  ]],
Cell[1107, 37, 393, 5, 32, "Input"],
Cell[CellGroupData[{
Cell[1525, 46, 4536, 117, 187, "Input"],
Cell[6064, 165, 7113, 121, 384, "Output"],
Cell[13180, 288, 6098, 105, 397, "Output"],
Cell[19281, 395, 15104, 254, 411, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34422, 654, 2015, 45, 165, "Input"],
Cell[36440, 701, 673, 11, 49, "Output"],
Cell[37116, 714, 720, 12, 32, "Output"],
Cell[37839, 728, 669, 10, 32, "Output"],
Cell[38511, 740, 670, 10, 32, "Output"],
Cell[39184, 752, 668, 10, 32, "Output"],
Cell[39855, 764, 746, 12, 32, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
